﻿Public Class maslocationf
    Private maslocationfID = Nothing
    Private maslocationfName = Nothing
    Private maslocationfStatus = Nothing
    Private selectMaslocationf = "SELECT `location` as 'รหัสสถานที่เก็บแฟ้ม', `locatename` as 'สถานที่', `status` as 'สถานะการเปิดใช้งาน' FROM maslocationf"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property maslocationfID_ As Integer
        Get
            Return maslocationfID
        End Get
        Set(value As Integer)
            maslocationfID = value
        End Set
    End Property

    Property maslocationfName_ As String
        Get
            Return maslocationfName
        End Get
        Set(value As String)
            maslocationfName = value
        End Set
    End Property

    Property maslocationfStatus_ As Boolean
        Get
            Return maslocationfStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                maslocationfStatus = 1
            Else
                maslocationfStatus = 0
            End If
        End Set
    End Property

    Property selectMaslocationf_ As String
        Get
            Return selectMaslocationf
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMaslocationfData()
        If maslocationfName <> "" Then
            If TypeOf maslocationfName Is String Then
                If connect.GetTable("SELECT locatename FROM maslocationf WHERE locatename = '" & maslocationfName & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลตำแหน่งแฟ้มนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim locationID As Integer

                        locationID = connect.ExecuteScalar("INSERT INTO maslocationf (locatename, status) VALUES ('" & maslocationfName & "', '" & maslocationfStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASFILELOCATION (IDFILE, FILENAME, STATUS) VALUES ('" & locationID & "', '" & maslocationfName & "', '" & maslocationfStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลตำแหน่งเก็บแฟ้มเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัส Discharge นี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub updateMaslocationfData()
        If maslocationfID > 0 And maslocationfName <> "" Then
            If TypeOf maslocationfName Is String Then
                Try
                    connect = CONDB.NewConnection()
                    ' = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE maslocationf SET locatename = '" & maslocationfName & "', status = '" & maslocationfStatus & "' WHERE location = '" & maslocationfID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASFILELOCATION SET FILENAME = '" & maslocationfName & "', STATUS = '" & maslocationfStatus & "' WHERE IDFILE = '" & maslocationfID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลตำแหน่งเก็บแฟ้มเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสตำแหน่งนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
End Class
